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INFORMATION TO USER 


"WARNING: 
THIS 
EQUIPMENT 
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BEEN 
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DEVICE, PURSUANT TO SUB-PART 
J OF PART 
15 OF FCC RULES. ONLY 
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DEVICES, TERMINALS, 
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ETC.) CERTI 


FIED 
TO 
COMPLY 
WITH 
THE 
CLASS 
B 
LIMITS 
MAY 
BE 
ATTACHED 
TO 
THIS 
COMPUTER. 


OPERATION 
WITH NON-CERTIFIED PERIPHERALS 
IS LIKELY TO RESULT 
IN 
INTERFERENCE 


TO RADIO AND TV RECEPTION." 


'THIS 
EQUIPMENT 
GENERATES 
AND 
USES 
RADIO 
FREQUENCY 
ENERGY AND 
IF 
NOT 
IN 


STALLED PROPERLY, THAT 
IS, 
IN 
STRICT ACCORDANCE 
WITH 
THE MANUFACTURER'S 
IN 


STRUCTIONS, MAY CAUSE INTERFERENCE TO RADIO AND TELEVISION 
RECEPTION. 
IT HAS 


BEEN TYPE TESTED AND FOUND TO COMPLY WITH THE LIMITS FOR A CLASS B COMPUTING 


DEVICE 
IN 
ACCORDANCE 
WITH 
THE 
SPECIFICATIONS 
IN SUBPART 
J OF 
PART 
15 OF 
FCC 


RULES, 
WHICH 
ARE 
DESIGNED 
TO 
PROVIDE 
REASONABLE 
PROTECTION 
AGAINST SUCH 


INTERFERENCE 
IN 
A 
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INSTALLATION. 
HOWEVER, THERE 
IS NO GUARANTEE 


THAT INTERFERENCE WILL NOT OCCUR 
IN A PARTICULAR INSTALLATION. 
IF THIS EQUIP 


MENT DOES CAUSE INTERFERENCE TO RADIO OR TELEVISION 
RECEPTION, WHICH CAN 
BE 


DETERMINED 
BY TURNING THE 
EQUIPMENT OFF AND ON, THE USER 
IS ENCOURAGED TO 


TRY TO CORRECT THE INTERFERENCE BY ONE OR MORE OF THE FOLLOWING MEASURES: 


• 
REORIENT THE RECEIVING ANTENNA 


• 
RELOCATE THE COMPUTER WITH RESPECT TO THE RECEIVER 


• 
MOVE THE COMPUTER AWAY FROM THE RECEIVER 


• 
PLUG THE 
COMPUTER 
INTO A 
DIFFERENT OUTLET SO THAT COMPUTER 


AND RECEIVER ARE ON DIFFERENT BRANCH CIRCUITS 


"IF 
NECESSARY, THE 
USER SHOULD CONSULT THE DEALER OR AN EXPERIENCED RADIO/ 


TELEVISION 
TECHNICIAN 
FOR 
ADDITIONAL 
SUGGESTIONS. 
THE 
USER 
MAY 
FIND 
THE 


FOLLOWING 
BOOKLET 
PREPARED 
BY 
THE 
FEDERAL 
COMMUNICATIONS 
COMMISSION 


HELPFUL: 
'HOW TO 
IDENTIFY AND 
RESOLVE 
RADIO-TV 
INTERFERENCE PROBLEMS.' THIS 


BOOKLET 
IS AVAILABLE 
FROM 
THE 
U.S. 
GOVERNMENT PRINTING 
OFFICE, WASHINGTON, 


D.C. 20402, STOCK NO. 004-000-00345-4." 


THIS WARNING 
IS VALID FOR THE EQUIPMENT WHICH HAS THE FOLLOWING FCC LABEL ON 


ITS REAR. 


CERTIFIED TO COMPLY WITH CLASS B 
LIMITS OF PART 
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FCC RULES. SEE 
INSTRUCTIONS 
IF INTERFERENCE TO RADIO 


RECEPTION 
IS SUSPECTED. 


THE 
INFORMATION 
IN 
THIS 
MANUAL 
HAS 
BEEN 
REVIEWED 
AND 
IS 
BELIEVED 
TO 
BE 


ENTIRELY 
RELIABLE. 
NO 
RESPONSIBILITY, 
HOWEVER, 
IS ASSUMED 
FOR 
INACCURACIES. 


THE 
MATERIAL 
IN THIS MANUAL 
IS FOR 
INFORMATION PURPOSES ONLY, AND 
IS SUBJECT 


TO CHANGE WITHOUT NOTICE. 


THIS MANUAL 
IS COPYRIGHTED AND CONTAINS PROPRIETARY INFORMATION. NO PART OF 


THIS PUBLICATION MAY 
BE 
REPRODUCED, STORED 
IN A RETRIEVAL SYSTEM, OR TRANS 


MITTED 
IN 
ANY 
FORM OR 
BY ANY 
MEANS, ELECTRONIC, MECHANICAL, PHOTOCOPYING, 


RECORDING OR OTHERWISE, WITHOUT THE PRIOR WRITTEN PERMISSION OF COMMODORE 


BUSINESS MACHINES, INC. 


Copyright®1983 by Commodore Business Machines, Inc. 


All rights reserved. 
Part No. C15202 


Table of Contents 


Introduction 


A. 
Congratulations 
i 


B. 
Plotter Features 
i 


C. 
Customer Support (Clubs, Magazines, 


Information Network) 
ii 


Section 1: 
External Appearances and Names of Parts 
1 


A. 
Front and Top View 
1 


B. 
The Printer Mechanism 
3 


C. 
Back View 
4 


Section 2: 
Preparing to Use Your Plotter 
5 


A. 
Installation Considerations 
5 


B. 
Paper Loading 
6 


C. 
Pen Loading, Removal, and Replacement 
7 


D. 
Connecting your Plotter to your computer 
8 


E. 
Performing the "POWER ON" Test 
9 


F. 
Troubleshooting 
10 


G. 
Cautions 
11 


Section 3: 
Using Your Plotter 
12 


A. 
Introduction 
12 


B. 
BASIC Commands associated with your Plotter... 13 


1. 
The OPEN Command 
13 


2. 
ThePRINT#Command 
13 


3. 
The CLOSE Command 
14 


4. 
The CMD Command 
14 


5. 
Command Examples 
15 


C. 
Plottable Area 
15 


1. 
Plotting Direction 
15 


2. 
Plottable Area 
16 


3. 
Cumulative Error Along the Y Axis 
17 


D. 
Printing and Plotting in the Direct Mode 
18 


E. 
Printing and Plotting under Program Control 
19 


F. 
Sophisticated Programming Techniques 


Through Secondary Addressing 
20 


1. 
SA = 0 Print ASCII Data 
21 


2. 
SA= 1 PlotX,YData 
24 


3. 
SA = 2 Select Color 
28 


4. 
SA = 3 Select Character Size 
30 


5. 
SA = 4 Select Character Rotation 
32 


6. 
SA = 5 Scribe (broken) Line Selection 
35 


7. 
SA = 6 Select UPPER/Lower Case Characters 
.. 37 


8. 
SA= 7 Reset the Plotter 
39 


Section 4: 
Appendices 
40 


Appendix A. 
1520 Plotter Specifications 
40 


Appendix B. 
ASCII Code Table 
41 


Appendix C. 
Printing Control Characters on your Plotter 
42 


Appendix D. 
Serial Interface Information 
44 


Appendix E. 
Programs You Can Try 
45 


1. 
Concentric Circles 
46 


2. 
Concentric Squares 
47 


3. 
Rotating Triangles 
48 


4. 
Cone made from Circles 
49 


5. 
Circle made from Circles 
50 


6. 
Rotating Ellipses 
51 


7. 
Archimedian Spiral 
52 


8. 
Geometric Design 
53 


9. 
Checker Board 
54 


10. 
Hatching 
56 


11. 
Changing Forms 
57 


12. 
Rotating Figures 
59 


13. 
BarChart 
60 


14. 
Complex BarChart 
63 


INTRODUCTION 


A. 
Congratulations 


Congratulations on your recent purchase of the COMMODORE 


VIC-1520 Four Color Plotter/Printer. You have added an 


exciting new dimension of versatility and convenience to your 
COMMODORE computer system. This manual 
is intended to 


introduce you to your new Plotter. 
It includes all the 


information necessary to help you... 


— Learn the names and functions of all external parts 
— Install your Plotter 
— Connect the Plotter to your computer 
— Operate and maintain your Plotter 


—Write programs for your Plotter 


In the process of showing you how to use your new Plotter, 


this manual assumes that you are familiar with the 
COMMODORE BASIC computer language. To get the most out 


of this manual, 
it is suggested that you continue to refer to 


your computers USER'S GUIDE and PROGRAMMER'S 


REFERENCE MANUAL 


B. 
Plotter Features 


Your new Plotter/Printer is a 4 color X-Y coordinate plotter. 


The X-axis extends across the width of the paper. The Y-axis 


runs vertically up and down the paper. Actual printing 


(plotting) is accomplished by combining movement of the pen 


carriage assembly horizontally across the paper with vertical 


paper movement. 
It is capable of high accuracy plotting with a 


resolution of 0.2mm. All printing is done with four ball point 


pens. The pen carriage assembly holds the 4 pens and allows 


the different colors to be rotated (one at a time) into position 


for printing. 


Your Plotter/Printer has the following features: 


— Standard VIC serial interface to allow easy connection 


to other COMMODORE computer peripheral devices 


— Plotting/printing in four colors for a wide variety of 


plotting applications 


— High resolution plotting with traces as small as 0.2 mm 


per pen movement (step) for accurate plots 


— Up to 80 characters per line (upper and lower case) in 


four sizes (10, 20, 40 and 80 characters per line) for 


flexibility in lettering plots or producing high quality 


general prints 


Your Plotter/Printer is designed to connect directly into your 


computer through the Serial Port (6 pin connector). 
It can be 


used with up to 4 VIC-1541 floppy disk drives. These units are 


connected to the computer by "daisy chaining" the devices 


together — each successive unit is plugged into the last unit 


connected to the computer. 
If you have a VIC-1525 Graphic 


Printer it will have to be disconnected while you are using your 


Plotter. Both printers have a single bus connection and 


therefore must be the last device on the daisy chain. 


C. 
Customer Support 


Please check with your local COMMODORE dealer, 
COMMODORE User's Magazines and COMMODORE and 


POWER/PLAY Clubs for additional support for your new 


Plotter. They can also keep you informed about possible 


applications programs written for your Plotter/Printer. 


SECTION 1 


External Appearances 


and 


Names of Parts 


External Appearances and Names of Parts 


A. 
Front and Top View: 


After carefully unpacking your Plotter, set the unit on a table 


as shown 
in the picture below. Notice that the ON-OFF switch 


is on the right hand side. On the top of the unit, also notice 


three bar switches and the red power indicator. The left hand 


bar switch is for manually advancing the paper. The middle 


switch allows you to manually rotate the Pen Carriage, 


bringing the next color pen into writing position. The right 


hand switch sets the Plotter for insertion or removal of the 


pens. 


(PRC) Paper Roll Cover 


(PF) Paper Feed Switch 
\ 


(PMC) Printer Mechanism Cover 


(PW) Power Indicator LED 


(CC) Color Change Switch 
(PC) Pen Change Switch 


PF - Paper Feed 
■ Press this switch when you 


want to manually feed paper 


through the Plotter. 


CC-Color Change 
- Each time this switch is 


pressed, the next color pen 
is 


rotated into printing position. 


The pen carriage will move to 


the left side to change colors. 


PC - Pen Change 
- Press this switch when you 


want to change or remove 


pens from your Plotter. Refer 


to SECTION 2 Part C for pen 


unloading instructions. 


PI - Power Indicator (LED) 
- Power On/Error Indictor. 


PMC-Printer Mechanism Cover-The cover should be kept in 


place to keep the print 


mechanism clean and to help 


control paper movement for 


accurate plots. 


PRC - Paper Roll Cover 
- Open this cover while the 


Plotter is in operation. Close 
it 


when you are finished to help 


keep the unit clean. 


B. 
The Printer Mechanism: 


Remove the Printer Mechanism Cover and 
lift the Paper Roll 


Cover so that you can familiarize yourself with the internal 


parts of your Plotter. 
It is very important that this area be kept 


clean. 


PCA 
PPG 
PCL 


PPG - Platen and Paper Guides 
-The platen is the long black 


rubber roller. The paper guides 


are the small brass wheels 


located at each end of the 


platen. Refer to SECTION 2 


Part B for paper loading 


instructions. 


PCA - Pen Carriage Assembly 


PCL - Pen Change Lever 


-The pen carriage assembly 


holds four pens. Each of the 


four pen slots is marked with 


the color of the pen to be 


inserted 
in the slot. Refer to 


SECTION 2 Part C for pen 


loading and unloading 


instructions. 


- Pressing this lever will cause 


the pen 
in printing position to 


be ejected from the Pen 


Carriage Assembly. 
It is used 


for removing and inserting the 


pens. Refer to SECTION 2 Part 


C for pen loading and 


unloading instructions. 


C. 
Back View: 


Turn your Plotter around so that you can look at the back of 


the unit as shown below. On the left side you will see the fuse 


holder and power line connection. On the right, you will see 


the serial interface jack used to connect the unit to your 


computer. 


AC 


, Power 


Connection 
Serial 


Interface 


Connector 


FH-Fuse Holder 


PL - Power Line Connector 


SI - Serial Interface (jack) 


- Refer to SECTION 2 Part G. 


- Use the power cord supplied 


with your Plotter. Refer to 


SECTION 2 Part D for 


complete connection instructions. 


■This jack is used to connect 


your Plotter to the computer. 


Use the Serial Interface cable 


supplied with Plotter. Refer to 


SECTION 2 part D for 


complete connection instructions. 


SECTION 2 


Preparing to Use Your 


Plotter/Printer 


A. 
Installation Considerations: 


In order to make your 1520 Plotter as trouble free as possible, 


please review the following 
list of precautions before setting 


up your new Plotter: 


1. Always place your plotter on a flat surface. 


2. 
Keep the ventilation holes free from any blockage. 


3. 
Keep the machine as dust free as possible. 


4. 
Do not place 
it in direct sunlight. 


5. 
Do not apply extreme pressure to any part. 


6. Avoid rooms with high humidity. 


7. Avoid rooms with extremes in temperature. 


8. Always put the caps back on the pens when you are not 


using them. 


B. 
Paper. Loading 


Use only roll paper recommended and supplied by your local 
COMMODORE dealer: 


Roll Paper Part Number: 
1520030-02 


Width: 
114 millimeters (4V2 
inches) 


Thickness: 
70 microns 


Roll Diameter: 
50 millimeters (maximum) 


Be very careful while loading a roll of paper into your new 


Plotter. The paper installation procedures requires you to work 


around delicate parts. Follow the installation procedure 


exactly: 


1. Remove the Printer Mechanism Cover (PMC) and the Paper 


Roll Cover (PRC). 


2. 
Install the roll of paper into the lower paper tray between 


the two arms by first inserting the paper spindle in the 


middle of the paper roll. Lower the ends of the spindle into 


the notches in the paper support arms. The paper must feed 


off the bottom of the roll towards the front of the plotter. 


3. 
Carefully insert the edge of the paper into the slot at the 


back of the print mechanism. 


4. With your thumb on the center of the platen, gently rotate 


the platen in an upwards direction 
until the paper is in 


place. You will notice a tiny brass wheel located at each 


end of the platen. The paper must be positioned between 


these wheels and the platen 
roller. 


5. 
Replace the Printer Mechanism Cover (PMC) and the Paper 


Roll Cover (PRC). 


NOTE: The paper roll must be able to turn freely. 


C. 
Pen Loading, Removal, and Replacement 


In order to remove or replace pens, the Plotter must be 


connected to the computer and both units must be turned on 


-OR- the Plotter must be disconnected from the computer and 


turned on. The following sequence of instructions shows you 


how to use the bar switches and the pen change lever to 


remove or replace pens: 


pen eject lever 


1. Remove the Printer Mechanism Cover (PMC). 


2. 
Press the Color Change switch (CC) until the desired pen 
is 


at the top of the pen carriage drum. The pen carriage will 


travel to the left side of the platen. 


3. 
Press the Pen Change switch (PC). The pen carriage will 


move to the right side of the platen. 


4. 
Press the Pen Change Lever (PCL) to 
lift the rear of the pen 


out of the pen carriage drum guide slot. 


5. 
Hold the back end of the pen and remove 
it in an upwards 


direction. 


6. 
If you are replacing the pen, insert the new pen (same color) 


into the pen carriage drum guide slot with the tip facing 


downward and into the retaining spring. Press down the 


back of the pen until 
it snaps (lightly) into place. 


7. 
If you are removing the pen for storage, place the cap on 


the pen and store the pen 
in a safe place. 


8. To remove or replace the other pens, repeat steps 2, and 4-7 


above. Step 3 will not be necessary as the pen carriage 


drum will return to the right after pressing the Pen Change 


switch (PC). 


9. 
Replace the Printer Mechanism Cover (PMC). 


NOTE: Never force or try to rotate the pen carriage drum 


by hand. 


D. 
Connecting your Plotter to the computer 


In order for your computer to know what devices 
it can work 


with (printers, disk drives), each device must have its own 


address. Disk drives are normally given addresses of 8 to 15. 


Printers are normally given addresses of either 4 or 5. Your 


plotter has been given an address of 6. 


To connect your Plotter to the COMMODORE computer, 


please follow the instructions listed below: 


1. Make SURE the power to your computer is turned off. This 


applies to any disk drives you may have connected to your 


computer. 


2. 
Using the serial interface cable supplied with your Plotter, 


connect one end of the cable to the serial interface jack at 


the rear of the Plotter. The cable connector has a notch in 
it 


so that 
it can only be inserted one way. The pins should be 


positioned so that a slight pressure will seat the cable in 


the jack properly. You should not have to force the pins into 


the jack — to do so could damage both the cable and the jack. 


3. 
Refer to the SET UP Section of your USER'S GUIDE. Locate 


the serial port on the back of your COMMODORE computer. 


Insert the other end of the serial interface cable into this jack/port. 


If you are using 
1 or more VIC-1541 Disk Drives, refer to 


page 7 in the VIC-1541 USER'S MANUAL Insert the other 


end of the serial interface cable into the serial bus jack/port 


on the last disk drive in the daisy chain. 


If you are using the VIC-1525 Graphic Printer, 
it will have to 


be disconnected temporarily as only one printer can be 


attached to your computer at a time. Insert the serial 


interface cable from your Plotter into the jack/port that you 


disconnected your VIC-1525 Printer from. 


4. 
Locate the power line cable supplied with your Plotter. 


Carefully insert the jack into the power line connector on 


the back of the unit. 
It will only go in one way. Plug the 


other end into any grounded AC outlet. 
If the Plotter makes 


any sound, please turn 
it off. 


NOTE: For information concerning the serial interface connector 


pin configuration, interface notes, and how to change the 


address of your Plotter, refer to APPENDICES D and E. 


Commodore 64 
VIC 1541 


Personal Computer 
Disk Drive 


VIC 1520 


Plotter/Printer 


E. 
Performing the "POWER ON" test: 


The following test(s) will verify that your Plotter is working 


properly: 


1. Turn on the power to your Plotter; then, turn on the 


computer. The unit should draw 4 small boxes. From 
left to 


right, the boxes should be in the following color sequence: 


blue, green, red and black. 


DDDD 


black 


red 


green 


blue 


2. 
If this test fails, recheck all cable connections and try the 


above steps again. 
If the test still fails, contact your 
COMMODORE dealer. 


NOTE 1: You will find that none of the bar switches on your 


Plotter will operate if the unit is turned on, 


connected to the computer and the computer is 


turned off. The computer must either be turned on 


or the serial interface cable must be disconnected 


from the Plotter. 


NOTE 2: Every time your Plotter and computer is turned on, 


it will automatically perform the "Power On" test 
— the four boxes described in #2 above will be 


printed. 


F. 
Trouble Shooting: 


We hope you don't have any problems with your Plotter. Just 


in case you do, however, see 
if you can solve the problem 


using the table below. 
If you still have problems, bring the 


Plotter into your COMMODORE dealer for repair. 


PROBLEM 


Plotter won't print. 
cause: 


Power indicator'OFF' solution: 


Plotter won't print. 


Power indicator'ON' 


PROBABLE CAUSES 


& SOLUTIONS 


Plotter is off. 


Check the power line 


connection and the power 


switch. 


cause: 
Fuse may be blown, 


solution: 
Replace with a fuse of the 


same rating (300 MA, 125 V) 


cause: 
Improper connection to 


computer, 


solution: 
Check all cable connections. 


cause: 
Improperly loaded pens, 


solution: 
Reload and adjust the pens. 


cause: 
Paper is jammed, 


solution: 
Remove and reload the paper. 


cause: 
Wrong pens or pen setting, 


solution: 
Readjust the pens. 


cause: 
Old or worn out pens, 


solution: 
Replace the pens. 


cause: 
Paper probably not moving 


freely. 


solution: 
Since the plotter moves the 


paper up and down to move 


along the Y axis, there must 


be sufficient slack and 


freedom of movement in the 


paper feed mechanism. Try 


unwinding some paper to form 


a loop just in front of the 


paper roll. 


IMPORTANT: 
If you try to fix internal problems yourself by 


working inside your plotter, you may void your warranty. Take 


the plotter to your Commodore dealer for any necessary repairs. 


Plotter okay, paper 


won't advance. 


Printed characters 


are too light 


or smudging. 


Plotting distorted. 
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G. 
Cautions: 


1. Wait at least two seconds to turn on the power after it is 


turned off so that the Plotter will be initialized properly. 


2. 
Never place the Plotter in direct sunlight. 


3. 
Never apply power while you are either plugging 
in or 


unplugging the serial interface connector. 


4. 
Never turn the power off while the Plotter is operating. See 


rule #8 below. 


5. 
Never try to move the pen carriage assembly manually when 


the power is either on or off. 


6. 
Never stop the pen carriage motion while 
it is printing. 


7. 
Never operate the Plotter without paper. The pen carriage 


assembly may be damaged. 


8. 
If a foreign object falls into the Plotter, turn 
it off 


immediately and remove the object. This situation is the 


only exception to rule #4 above. 
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SECTION 3 


Using Your Plotter 


A. 
Introduction: 


Now that you have learned how to insert the pens and paper 


into your new Plotter, how to connect 
it to your computer, how 


to test 
it and how to correct any problems that may occur, you 


are ready for the next step — putting the VIC-1520 


Plotter/Printer to work for you. 


In this section, you see how to use your Plotter to print 


program listings and plot graphic displays. Before we go any 


further, make sure that you are able to do the following: 


1. 
Operate your COMMODORE computer. 


2. Write elementary programs in BASIC language. 


3. OPEN and CLOSE files. 


4. READ and WRITE files to various peripheral devices: (Like a 


tape cassette or disk drive for the purpose of 


saving/retrieving programs keyed as you continue through 


the rest of this manual.) 


If you are not familiar with any of the above items, take the 


time now to check the USER'S MANUAL and 


PROGRAMMER'S GUIDE. 
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B. 
BASIC COMMANDS associated with your Plotter 


1. The OPEN Command: 


This command creates a linkage or correspondence 


between a given physical device and a file number. 
Its 


format is as follows: 


OPEN 
lfn,dn,sa 


where: 


Ifn 


Is the logical file number (any number from 
1 to 255). 


If the logical file number is greater than 127, any 


printed lines will be double spaced. 


dn 


Is the device number of the peripheral that will be 


sending/receiving the file. For the remainder of this 


manual, you will be using device #6, the address of 


your Plotter. 


sa 


Is the secondary address, a unique way of instructing 


your Plotter's internal microprocessor to perform 


certain specific tasks. More about this important 


feature later. 


2. The PRINT# Command: 


This command works just like the BASIC PRINT command 


except that 
it directs the output to the Plotter instead of to 


the video screen. The abbreviation for PRINT# is pR 


(unshifted p and shifted R). There must be no space before 


the #, and spaces after the # are ignored. The format is as 


follows: 


PRINT # 
Ifn < ,variable/data/command > 


where: 


Ifn 


Is the logical file number (any number from 1-255). 


This number must correspond to a given OPEN 


command. 


< variable/data/command > 
will be discussed in detail 


later in the manual. 
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3. The CLOSE Command: 


Careful use of this command is important because you 


may only have a maximum of ten files open at any one 


time. Programming your Plotter may require that you keep 


several files open simultaneously. Always close files when 


you are finished using them. The format is as follows: 


CLOSE Ifn 


where: 


Ifn 


Is the logical file number of the file being closed. 


This number must correspond to a given OPEN 


command. 


4. The CMD Command: 


Good programming practice dictates never using this 


statement within a program; use this statement in direct 


mode only. 


This statement transfers the primary output device (TV 


screen) to the logical file number specified in the 


command. The file must have been previously OPENed. 


When this command is in effect, all output generated by 


PRINT or LIST command will be sent to the file instead of 


the video monitor. The format of the command is as 


follows: 


CMD Ifn < 
, string > 


where: 


Ifn 


Is the logical 
file number to receive the output. 


string (optional) when specified is sent directly to the 


file. This can be used as a handy way of printing titles 


on printouts. 


To re-direct the output back to the primary output device, 


the PRINT# command must be used to send a blank line to 


the CMD device prior to closing the file. 
If a syntax error 


occurs, output will not be redirected back to the video 


monitor. Devices are not "unlistened" by this so you should 


PRINT# a blank line after an error condition. 


14 


5. Command Examples 


OPEN 1,6,0 
File#1, device#6, secondary 


address#0 
OPEN 2,6 
File#2, device#6 


PRINT#1,"HELLO THERE" Print "HELLO THERE" on file#1 


PRINT#2," 
" 
Print a blank line on file#2 


CLOSE1:CLOSE2 
Close file#1 and file#2 


C. 
Plottable Area 


1. 
Plotting Direction 


Horizontal movements of the pen carriage are referred to 


as the X axis. Movement to the right of the left margin is 


represented as + X. 


Vertical movement is accomplished by moving the paper 


up and down. This movement is referred to as the Y axis. 


Movement upward from the center is represented by the 


+ Y and movement downward from center is represented 


by -Y. 
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2. 
Plottable Area 


Along the X axis: 96 mm (480 positions numbered 0 to 


479 separated by 479 steps) 


There is a 9 mm border on the left and right sides of the 


X plottable area, so that the actual paper width 
is 114 


mm. 


Along the Y axis: Programmable as desired 
( + / - 
999 


positions numbered 0 to 998 separated by 998 steps) 


Positions are defined as coordinate points, with steps 


being the spaces between the coordinate points. 


(0,-998) 


Home (0,0) 


480 positions 


numbered 0 to 479 


separated by 479 steps 


(0,998) 


-96 mm - 


•114 mm 
• 


(479,-998) 


999 positions 


numbered 998 to 0 


separated by 998 steps 


(479,0) 


Y 
999 positions 


numbered 0 to -998 


separated by 998 steps 


(479,998) 


The absolute center point of the plotting area is at 


coordinates (240,0). 


The Home position within the plotting area is at 


coordinates (0,0). 


NOTE: 


If your lines extend beyond the limits of the 


plotting area, the pen 
is automatically forced up. 


When the pen returns to the plotting area, 
it will 


remain 
in the up position until a new plot 


command 
is received. 
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3. Cumulative Error Along the V Axis: 


Since paper is fed along the Y axis by means of frictional 


contact between rubber rollers, slight deviations in 


plotting accuracy may occur. This can be minimized by 


insuring that the paper advance mechanism doesn't have 


to pull the paper off the roll. Unroll a small amount of 


paper such that a loop is formed in front of the paper roll. 


Keep the paper roll cover lifted up while the unit is operating. 
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D. 
Printing in the Direct Mode: 


Now that you have reviewed the BASIC commands you will 


need to handle files directed to your Plotter, let's put them to 


use in some practical applications. The direct mode allows 


you to communicate with your Plotter by entering printing 


commands directly into your computer keyboard and having 


them executed immediately. 


The following example illustrates the DIRECT mode procedure 


for listing a short BASIC program. In the example below, a 


single statement BASIC program 
is keyed into the computer's 


memory. A LIST command is keyed and the program is printed 


on your video monitor. A file (#3) is OPENed to your Plotter. A 
CMD3 is issued to the file open on your Plotter (it is now 


listening). Issue the LIST command again. This time the output 


will be written on your Plotter. To unlisten the Plotter, you 


instruct the computer to print a null character to file#3. Now 


you can CLOSE file#3, freeing up that file number for some 


other use. All output will now appear on the video monitor. 


You Type: 


10 Print'TEST" 


LIST 


OPEN 3,6 


CMD3 


LIST 


PRINT#3 


CLOSE 3 


The screen displays: 


10 PRINT'TEST" 


LIST 


10 PRINT'TEST" 


OPEN3.6 


READY. 


CMD3 


LIST 


PRINT#3 


READY. 


CLOSE 3 


READY. 


The Plotter prints: 


READY. 


10 PRINT'TEST" 


READY. 
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E. 
Printing Under Program Control: 


You have seen how to print a listing of a simple BASIC 


program directly from the keyboard. Although 
it is not good 


programming practice, the following example shows how to 


print a listing of a BASIC program under control of the 


program 
itself. First, enter the following simple program into 


your computer's memory: 


10 
OPEN 3,6 


20 CMD3 


30 
PRINT'PROGRAM CONTROL" 


40 
LIST 


If you typed LIST on your keyboard, the program you just 


entered would be listed on your video monitor. Enter the RUN 


command. The following should be printed on your Plotter: 


PROGRAM CONTROL 


10 
OPEN 3,6 


20 CMD3 


30 
PRINP'PROGRAM CONTROL" 


40 
LIST 


READY. 


Now, enter the following: 


PRINT#3 


CLOSE3 


The RUN command instructed the computer to execute the 


program in its memory. First, file#3 (device#6) was opened. 


Next, the CMD command instructed the computer to direct all 


subsequent output to file#3. The program then PRINTed 
PROGRAM CONTROL on file#3. The LIST command instructed 


the computer to print a listing of the program 
in 
its memory on 


file#3. 


REMEMBER — when using the LIST command within a 


program, you must type the PRINT# Ifn command to unlisten 


the printer. Then you must type in the CLOSE Ifn command to 


close the file. Both of these commands can be entered into 


the program or after you have RUN the program. Using the 


LIST command or the CMD command in a program 
is 


generally not a good programming practice. 
It is suggested 


that you only use them 
in DIRECT mode. 
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F. 
Sophisticated Programming Techniques Through 


Secondary Addressing 


Earlier in this manual, you were introduced to the secondary 


address concept in the discussion of the OPEN statement. 


This unique feature allows you to instruct your new Plotter to 


do the following operations: 


Operation 
Secondary Address 


Print ASCII (character) Data 
0 (default) 


Plot X,Y Data 
1 


Select Color 
2 


Select Character Size 
3 


Select Character Rotation 
4 


Select Scribe (dashed) Line Mode 
5 


Select Upper/Lower Case Letters 
6 


Reset Plotter 
7 


For each desired operation (change a color, plot data, etc.) you 


will be OPENing a file and issuing PRINT* commands to that 


file to instruct your Plotter to perform the function defined by 


the secondary address. For example, a PRINT# command 


issued to a file that was OPENed with secondary address set 


to 2 would allow you to change the color of the pen in printing 


position. 


A complex plotting program which takes advantage of all of 


the above functions of your Plotter could have eight (8) files 


open at the same time. Remember that there is a limit of ten 


(10) files that can be open at any one time. To avoid confusion, 


it is highly recommended that you use the following file 


numbering conventions in all your programs for your Plotter 


(all examples in the manual follow the convention): 


Logical 


File Number (Ifn) 


4 


1 


2 


3 


44 


5 


6 


7 


Secondary 


Address 


0 


1 


2 


3 


4 


5 


6 


7 


Example 


OPEN 
4,6 
OPEN 
1,6,1 
OPEN 
2,6,2 


OPEN 
3,6,3 
OPEN 
44,6,4 


OPEN 
5,6,5 
OPEN 
6,6,6 
OPEN 
7,6,7 
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The reason that file#4 has been assigned a secondary address 


of 0 is that printing of ASCII data is normally used more than 


character rotation (secondary address 4) and that a logical file 


number of 0 is not allowed. Notice that the secondary address 


was left off the OPEN command for file #4 — the 0 need not 


be coded as 
it is the default value. Since we assigned file #4 


to secondary address 0, file #44 has been assigned to 


secondary address 4. 


Let's look at each secondary address: 


1. SA = 0: Print ASCII Data 


The format for the PRINT* command is as follows: 


PRINT#4 (,data) 


This secondary address causes the Plotter to print ASCII 


data exactly as 
it is received from the computer. As 


mentioned above, this secondary address is the default 


value and need not be coded. Try the following sample 


programs: 


The first program will print four simple lines on your 


Plotter. 


100 
REM SECONDARY ADDRESS 0 


110 
REM PRINT ASCII DATA 


120 
OPEN4.6 


130 
FORI = 0TO3 


140 
PRINT#4,"VIC-1520 PLOTTER PRINTER" 


150 
NEXT 
I 


160 
CLOSE4 


170 
END 


READY. 


VIC-1520 PLOTTER PRINTER 


VIC-1520 PLOTTER PRINTER 


VIC-1520 PLOTTER PRINTER 


VIC-1520 PLOTTER PRINTER 
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The second sample program will print all numbers from 0 


to 255 and the ASCII character representation of each. 
When the numbers 34 and 141 are reached, the remainder 


of the line is filled with blanks. As you will see, your 


Plotter will print each character as it is received from your 


computer. 


100 
REM SECONDARY ADDRESS 0 


110 
REM PRINT ASCII DATA 


120 
OPEN 4,6,0 


130 
FORI = 0TO255 


140 
IF 
I = 34 OR 
I = 141 THEN PRINT#4,I;CHR$ 


(l);:PRINT#4:GOTO160 


150 
PRINT#4,I;CHR$(I); 


160 
NEXT 
I 


170 
CLOSE4 


180 
END 


READY. 
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0 


11 


14 


24 


1 
2 
3 


12 
13 


15 
16 


25 
26 


4 
5 
6 
7 
8 
9 
10 


17 


27 


18 


28 


19 


29 


20 


30 


21 


31 


22 


32 


23 


33 


I 
34 
" 


35 
* 
36 
* 
37 
-a 
38 
8, 


43 
+ 
44 


39 
' 
40 
C 
41 
D 
42 
% 


; 
60 
< 
61 
= 
62 
> 


C 
68 
D 
69 
E 
70 
F 


45-46 
. 
47 
/ 
48 
0 
49 
1 
50 
2 


3 
52 
4 
53 
5 
54 
6 
55 
7 
56 
8 
57 
9 
58 
: 


63 
? 
64 
® 
65 
A 
66 
B 


71 
G 
72 
H 
73 
I 
74 
J 


L 
77 
M 
78 
N 
79 
0 
80 
P 
81 
Q 
82 
R 


T 
85 
U 
86 
U 
87 
14 
88 
X 
89 
Y 
90 
Z 


94 
t 
95 
<r 
96 
97 
98 
99 


103 
104 
105 
106 
107 


111 
112 
113 
114 
115 


118 
119 
120 
121 
122 
123 


126 
127 
128 
129 
130 
131 


134 
135 
136 
137 
138 
139 


51 


59 


67 


75 
K 
76 


83 
S 
84 


91 
C 


100 


108 


116 


124 


132 


140 


142 


150 


158 


92 
£ 
93 
] 


101 


109 


102 


110 


117 


125 


133 


141 


143 


151 


144 
145 
146 
147 
148 
149 


152 
153 
154 
155 
156 
157 


159 
160 
161 
1 
162 
" 
163 
# 
164 
* 


165 
'/- 
166 
8< 
167 
' 
168 
C 
169 
D 
170 
* 
171 


+ 
172 
, 
173 
- 
174 
. 
175 
/ 
176 
0 
177 
1 
1 


78 
2 
179 
3 
180 
4 
181 
5 
182 
6 
183 
7 
184 
8 


185 
9 
186 
: 
187 
; 
188 
< 
189 
= 
190 
> 
191. 


? 
192 
- 
193 
a 
194 
b 
195 
c 
196 
d 
197 
e 
1 


98 
f 
199 
9 
200 
h 
201 
I 
202 
J 
203 
k 
204 
I 


205 
m 
206 
n 
207 
o 
208 
p 
209 
q 
210 
r 
211 


s 
212 
t 
213 
u 
214 
w 
215 
u 
216 
x 
217 
y 
2 


18 
z 
219 
| 
220 
_221 
A 222 
it 
223 
D 
224 


225 
226 
227 
228 
229 
230 
231 
232 


233 
234 
235 
236 
237 
238 
239 
240 


241 
242 
243 
244 
245 
246 
247 
248 


249 
250 
251 
252 
253 
254 
255 
k 


23 


2. SA = 1: Plot X,Y Data 


The format for the PRINT* command is as follows: 


PRINT#1,"Sub-Command" (,X coordinate^ coordinate) 


You can substitute a semicolon (;) for a comma (,). 


This secondary address gives you the ability to plot X,Y 


coordinate data and control all movement of the pen 


carriage within the plottable area. 


You may need to refer back to the discussion of the 


Plottable Area during the following description of sub 


commands: 


Sub- 


Commands 
Function 


H 
Move to start point (0,0) 


(absolute origin point) 


I 
Set relative origin point (X0,Y0) = 
to the 


current position (X,Y) 


M 
Move to position (X,Y) relative to the 


absolute origin point (0,0) (pen up) 


D 
Draw to position (X,Y) relative to the 


absolute origin point (0,0) (pen down) 


R 
Move to position (X,Y) relative to the relative 


origin point (x0,y0) (pen up) 


J 
Draw to position (X,Y) relative to the relative 


origin point (x0,y0) (pen down) 


NOTES: — For sub-commands M,D,R and J, 


movement/drawing takes place from the current 


pen carriage position. 


— Lines are drawn by first moving to the desired 


starting point (M or R) then drawing to the 


ending point (Dor J). 


— Figures requiring a center point (circles) are 


drawn by first moving to the desired point (M), 


setting a relative origin point (I), moving to the 


first computed point (R) then drawing to each 


computed point (J) until the figure is done. 


— MOVE implies pen up, DRAW implies pen down. 


— Any carriage return sent to the file opened with 


secondary address 0 will cause a new absolute 


origin point (HOME point) to be defined. 
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In the first of three sample programs, a simple box will be 


drawn using absolute positions starting at point (50,0). 


Notice that after the box is complete, the pen carriage is 


sent to the HOME position. 


100 
REM SECONDARY ADDRESS 1 


110 
REM PLOT X,Y DATA ABSOLUTE 


120 
OPEN1,6,1 


130 
PRINT#1,"M",50,0 


140 
PRINT#1,"D",50,150 


150 
PRINT#1,"D",200,150 


160 
PRINT#1,"D",200,0 


170 
PRINT#1,"D",i50,0 


180 
PRINT#1,"H" 


190 
CLOSE1 


200 
END 


READY. 
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In the next sample, the same box will be drawn but the 


program uses relative addressing. The pen carriage is 


moved to absolute point (50,0) and a relative origin 
is set. 


The placement of the box will be 50 steps to the right of 


the previous sample. 


100 
REM SECONDARY ADDRESS 1 


110 
REM PLOT X,Y DATA RELATIVE 


120 
OPEN1,6,1 


130 
PRINT#1,"M",50,0 


132 
PRINT#1,"I" 


135 
PRINT#1,"R",50,0 


140 
PRINT#1,"J",50,150 


150 
PRINT#1,"J",200,150 


160 
PRINT#1,"J",200,0 


170 
PRINT#1,"J",50,0 


180 
PRINT#1,"H" 


190 
CLOSE1 


200 
END 


READY. 
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In the third sample, you will be removing the 135 from the 


last sample program. Notice what happens to the box. The 


left side runs up at an angle. This line runs at an angle due 


to the following: 


— the pen carriage is positioned at absolute point (50,0) 


— the first "J" command draws from current pen 


position to position (50,150) relative to the relative 


origin point which is set at (50,0) — absolute point 


(100,150) 


100 
REM SECONDARY ADDRESS 1 


110 
REM PLOT X,Y DATA RELATIVE 


120 
OPEN 
1,6,1 


130 
PRINT#1,"M";50;0 


132 
PRINT#1,"I" 


140 
PRINT#1,"J";50;150 


150 
PRINT#1,"J";200;150 


160 
PRINT#1,"J";200;0 


170 
PRINT#1,"J";50;0 


180 
PRINT#1,"H" 


190 CLOSE1 


200 
END 


READY. 
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3. SA = 2: Select Color 


The format for the PRINT# command is as follows: 


PRINT#2 
<, color number > 


This secondary address gives you the ability to select the 


color. 


The following table defines the relationship of the color 


number to the actual color and the allowable values of the 


number: 


Color Number 
Color 


0 
Black 


1 
Blue 


2 
Green 


3 
Red 


Higher numbers are treated modulo 4. For example, 4 is 


black, 5 is blue, 6 is green, etc. 


In order for these relationships to be accurate, the pens 


must have been inserted in the exact order specified in 


SECTION 2 Part C — Pen Loading, Removal, and 


Replacement. 


Try the following two sample programs. You will note that 


there are two files open to your Plotter; one for printing 


ASCII data and one for selecting pen colors. 


100 
REM SECONDARY ADDRESS 2 


110 
REM SELECT COLOR 


120 
OPEN4.6 
:REM PRINT ASCII DATA 


130 
OPEN2,6,2 
:REM COLOR SELECT 


140 
FORI = 0TO3 


150 
READA$ 


160 
PRINT#2,I 


170 
PRINT#4,I;" - 
";A$" 
PEN" 


180 
NEXT 
I 


190 
PRINT#2,0 
:REM RESET PEN TO BLACK 


200 
CLOSE4;CLOSE2 


210 
END 


220 
DATA BLACK, BLUE,GREEN,RED 


READY. 


0 - BLACK PEN 


1 - BLUE PEN 


2 - GREEN PEN 


3 — RED PEN 
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100 
REM SECONDARY ADDRESS 


110 
REM SELECT COLOR 


120 
OPEN4.6 
:REM PRINT ASCII DATA 


130 
OPEN2.6.2 
:REM SELECT COLOR 


140 
FOR 
I = 0 TO 10 


150 
PRINT#2,I 


160 
PRINT#4,l;"VIC-1520 PLOTTER PRINTER" 


170 
NEXT 
I 


180 
PRINT#2,0 
:REM RESET TO BLACK 


190 CLOSE4:CLOSE2 


200 
END 


READY. 


0 
VIC-1520 PLOTTER PRINTER 


1 
VIC-1520 PLOTTER PRINTER 


2 
VIC-1520 PLOTTER PRINTER 


4 
VIC-1520 PLOTTER PRINTER 


5 
VIC-1520 PLOTTER PRINTER 


6 
VIC-1520 PLOTTER PRINTER 


7 
VIC-1520 PLOTTER PRINTER 


8 
VIC-1520 PLOTTER PRINTER 


9 
VIC-1520 PLOTTER PRINTER 


10 
VIC-1520 PLOTTER PRINTER 
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4. SA = 3: Select Character Size 


The format for the PRINT* command is as follows: 


PRINT# < character size number > 


This secondary address gives you the ability to select the 


character size for printing ASCII data. 


The following table defines the relationship of the 


character size number to the actual character size 


(specified in characters/line) and the allowable values of 


the number: 


Character 
Character 


Size Number 
Size 


0 
80 characters/line 


1 
40 characters/line (default) 


2 
20 characters/line 


3 
10 characters/line 


Higher numbers are treated modulo 4. For example, 4 is 80 


characters/line, 5 is 40 characters/line, 6 is 20 


characters/line, etc. 


Try the following sample program. 
It will demonstrate the 


four character sizes available to you. Again, two files are 


used in this program; 
1 to print ASCII data and 
1 to select 


the character size. Note statement 195 — this is used to 


reset the character size to the default value so that the 


next sample program you run will print ASCII data at the 


correct size. 


100 
REM SECONDARY ADDRESS 3 


110 
REM SELECT CHARACTER SIZE 


120 
OPEN4,6 
:REM PRINT ASCII DATA 


130 
OPEN3,6,3 
:REM SELECT CHAR. SIZE 


140 
FORI = 0TO3 


150 
READX$ 


160 
PRINT#3,I 


170 
PRINT#4,RIGHT$(STR$(I),1);" = ";X$;" C 
HAR" 


180 
PRINT#4 


190 
NEXT 
I 


195 
PRINT#3,1 
:REM RESET TO 40/LINE 


200 
CLOSE4:CLOSE3 


210 
END 


220 
DATA 80,40,20,10 


READY. 
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d-83 
CHAR 


1=40 
CHAR 


2=20 
CHAR 
3-10 
CHAR 


Here is some technical data on character size and spacing. 


The information is based on a character size of 40 


characters/line. 


\ 
C 
C 
i> 


\ 
> 


\ 
> 


\ 
\ 
Start 


1.2 


* 
v 
y 
v 
y v w 


End 
/ 


1) 
Character size 


1.05 x 1.45mm 


(In the case of 0.25mm line width) 


2) 
Inter-character pitch 


1.2 ±10% 


3) 
Inter-line pitch 


2.4mm ± 10% 


ffl 


1.05 
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5. SA = 4: Select Character Rotation 


The format for the PRINT# command 
is as follows: 


PRINT#44 < ^character rotation number 


This secondary address gives you the ability to select 


character rotation. Please note the logical file number of 


44 _ refer to SECTION 3 Part F for a discussion of 


recommended file numbering conventions. 


The following table defines the relationship of the 


character rotation number to the actual rotation parameter 


and the allowable values of the number: 


Character 
Character 


Rotation 
Rotation 


Number 
Parameter 


0 
Normal Horizontal Mode (default) 


1 
90 Degree Rotation to the Right 


Higher numbers are treated modulo 2. For example, 2 is 


normal horizontal mode, 3 is 90 degree rotation to the 


right, etc. 


Try the following three sample programs. The first program 


will print a line of characters in normal horizontal mode 


and then a line of characters — each rotated 90 degrees to 


the right printed horizontally. Note statement 190 — 
it 


resets the character rotation of the Plotter to normal 


horizontal mode. 


100 
REM SECONDARY ADDRESS 4 


110 
REM REM CHARACTER ROTATE 


120 
OPEN4,6 
:REM PRINT ASCII DATA 


130 
OPEN44,6,4 
:REM SELECT ROTATION 


140 
PRINT#44,0 


150 
PRINT#4,"0 — NORMAL HORIZONTAL MODE" 


160 
PRINT#4 


170 
PRINT#44,1 


180 
PRINT#4,"1 — 90 DEG ROTATE TO THE Rl 


GHT" 


190 
PRINT#44,0 
:REM SET BACK TO DEFAULT. 


200 
CLOSE4:CLOSE44 


210 
END 


READY 


0 _ NORMAL HORIZONTAL MODE 


-■> 
| 
coo omO 3JOH>nm HO Him aj—on 
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The second sample illustrates a line of characters printed 


in normal horizontal mode and then a line of characters — 


each of which is rotated 90 degrees and printed vertically. 


This sample produces a much more readable text on your 


Plotter. 


100 
REM SECONDARY ADDRESS 4 


110 
REM REM CHARACTER ROTATE 


120 
OPEN4.6 
:REM PRINT ASCII DATA 


130 
OPEN44,6,4 
:REM SELECT ROTATION 


140 
PRINT#44,0 


150 
PRINT#4,"0 - NORMAL HORIZONTAL MODE" 


160 
PRINT#4 


170 
PRINT#44,1 


180 A$= "1 — 90 DEG ROTATE TO THE RIGHT" 


190 
FORI = 1TOLEN(A$) 


200 
PRINT#4,MID$(A$,I,1) 


210 
NEXT 
I 


220 
PRINT#44,0 
:REM SET TO DEFAULT ROT. 


230 
CLOSE4:CLOSE44 


240 
END 


READY. 


0 — NORMAL HORIZONTAL MODE 


o 


D 
m 
O 


33 
O 


m 


m 


ID 


O 
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The third sample program prints output that is similar to 


the output of the first sample but the characters in the 


second line are inverted — printed from right to left. 


100 
REM SECONDARY ADDRESS 4 


110 
REM REM CHARACTER ROTATE 


120 
OPEN4.6 
:REM PRINT ASCII DATA 


125 
OPEN1.6.1 
:REM PLOT X,Y DATA 


130 
OPEN44,6,4 
:REM SELECT ROTATION 


140 
PRINT#44,0 


150 
PRINT#4,"0 - NORMAL HORIZONTAL MODE" 


160 
PRINT#4 


. 
170 
PRINT#44,1 


180 A$= "1 — 90 DEG ROTATE TO THE RIGHT" 


185 
L=LEN(A$) 


190 
FOR 
I = LTO1 STEP — 
1 


200 
PRINT#1,"M";16*(L- l),0:PRINT#4,MID$( 


A$,l,1); 


210 
NEXT 
I 


220 
PRINT#44,0 
:REM SET TO DEFAULT ROT. 


230 
CLOSE4:CLOSE44:CLOSE1 


240 
END 


READY. 


O — NORMAL HORIZONTAL MODE 


HID—33 mn OH rnH>HO33 ©mo cxo 
| 
->• 
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6. SA = 5: Scribe (broken) Line Select 


The format for the PRINT# command 
is as follows: 


PRINT#5 
, scribe line number 


This secondary address gives you the ability to select and 


draw broken or scribe lines. 


The following table defines the relationship of the scribe 


line number to the width of each segment of the broken 


line and the allowable values of the number: 


Scribe 
Width 


Line 
of each 


Number 
Scribe Segment 


0 
Normal unbroken line (default) 


1 
Broken line (smallest increment — 0.2mm 


-to- 


15 
Broken line (largest usable increment) 


Higher numbers are treated modulo 16. For example, 16 is 


normal unbroken 
line, 17 is smallest increment broken 


line, etc. 
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The sample program draws all scribe lines with values 


between 0-15 (inclusive). Watch closely how the plotting 


proceeds — all scribe lines will be drawn first then each 


will be labeled with the scribe line number. Actual X,Y 


coordinates are used. The HOME position is the starting 


point. Note how the Y coordinate value is computed. 


100 
REM SECONDARY ADDRESS 5 


110 
REM SCRIBE LINE SELECT 


120 OPEN4.6 
:REM PRINT ASCII DATA 


130 
OPEN1.6.1 
:REM PLOT X,Y DATA 


140 
OPEN5.6.5 
:REM SELECT SCRIBE LINE 


150 
FOR 
I = 0 TO 15 


160 
PRINT#5,I 


170 
PRINT#1,"M";30;-P20+10 


180 
PRINT#1,"D";480;-l*20+10 


190 
NEXT 
I 


200 
PRINT#5,0 


210 
PRINT#I,"H" 


220 
FORI = 0TO15 


230 
PRINT#4,RIGHT$(" 
" + STR$(I),2) 


240 
NEXT 
I 


250 
PRINT#5,0 
:REM RESET TO SOLID LINE 


260 
CLOSE4:CLOSE1:CLOSE5 


270 
END 


READY. 


0 


1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 
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7. SA = 6: Select UPPER/lower Case 


The format for the PRINT# command is as follows: 


PRINT#6 <, upper/lower case number > 


This secondary address gives you the ability to choose 


between two character printing modes. 


The following table Refines the relationship of the 


upper/lower case number to the type of character printing 


mode and the allowable values 
it can have: 


Upper/Lower 
Character 


Case 
Printing 


Number 
Mode 


0 
Normal Upper Case/Shifted Lower Case 


> 
(default) 


1 
Normal Lower Case/Shifted Upper Case 


Higher numbers are treated modulo 2. For example, 2 is 


normal upper case/shifted lower case, 3 is normal lower 


case/shifted upper case, etc. 
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The sample program will print the alphabet plus some 


special characters in both modes described above. 


100 
REM SECONDARY ADDRESS 6 


110 
REM UPPER/LOWER CASE SHIFT MODE 


120 
OPEN4.6 
:REM PRINTING ASCII DATA 


130 
OPEN6,6,6 
:REM SELECT UP/LOW CASE 


140 
PRINT#6,0 


150 
PRINT#4,"0 — UPPER CASE/SHIFTED LOWE 


R CASE" 


160 GOSUB 230 


170 
PRINT#4 


180 
PRINT#6,1 


190 
PRINT#4,"1 - LOWER CASE/SHIFTED UPPE 


R CASE" 


200 GOSUB 230 


205 
PRINT#6,0 
:REM RESET TO NORMAL 


210 CLOSE4:CLOSE6 


220 
END 


230 
REM 
* PRINT CHARACTER SET * 


240 
FOR 
I = 64 TO 95:PRINT#4,CHR$(I);:NEXT 


I 


250 
PRINT#4 


260 
FOR 
I = 192 TO 223:PRINT#4,CHR$(I);:NE 


XT 
I 


270 
PRINT#4 


280 
RETURN 


READY. 


0 
- 
UPPER 
CASE/SHIFTED 
LOWER 
CASE 


eABCDEFGHIJKLNNOPQRSTUUldXYZ[<£]t<- 


-a,bcdef9h 
I Jk 
I mnopqrst uuuxyz |_^rfD 


1 
- 
lower 
case/shifted 
upper 
case 


-tvbcdefgh 
I Jk 
I mnopqrst uwxyz I^MfD 


©ABCDEFGHIJ KLHNOPQRSTUO14XYZC,£] t«- 
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8. SA = 7: Reset the Plotter 


The format for the PRINT# command is as follows: 


PRINT#7 


This secondary address gives you the ability to reset your 


Plotter. All secondary addresses are reset to the default 


values and the Plotter's memory is cleared. 


This command is very important. When you run a program 


that uses combinations of large characters, scribe lines 


and various colors, the final settings will remain in effect 


for the next program. You can save yourself a lot of trouble 


if you run this command either at the beginning or end of 


6very program you write for your Plotter. 


The sample program will reset your Plotter. 
It will print the 


same four boxes that we discussed earlier in the Power-On 


Test in Section 2 Part E. 


100 
REM SECONDARY ADDRESS 7 


110 
REM RESET PRINTER & CLEARS MEMORY 


120 
OPEN7,6,7 


130 
PRINT#7 


140 
CLOSE7 


READY. 


DDDD 
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SECTION 4 


Appendices 


APPENDIX A: 1520 Plotter Specifications 


1. 
General Specifications 


Print Method 


Colors 


Drive Unit 


Print Speed 


Line Capacity (X-axis) 


Character Set 


Plotting Speed 


Step Length 


Line Drawing Speed 


Plottable Area 


Pen 
Life 


Paper 


External Dimensions 


2. 
Operating Environment 


Power Requirements 


Power Consumption 


Temperature 


Humidity 


:Water ink ballpoint pen 


:4 Colors (black, blue, green, red) 


:Drum Type X,Y Plotter 


:12 characters/second (avg.) 


Maximum 80 characters/line 


(80, 40, 20, or 10 characters as 


desired) 


:96 Characters 


:260 steps/second 


:0.2mm (0.0078 inch) along X-axis 


0.2mm (0.0078 inch) along Y-axis 


:52mm/sec. (along X and Y axis) 


73mm/sec. (along 45 degree vector) 


:479 positions along X axis 


(numbered 0 to 479) 


Programmable as desired along the 


Y axis; maximum range +/-998 


positions (numbered 0 to 998) 


Minimum 250 meters (825 feet) 
:COMMODORE Part Number 


1520030-02; Width -114 


millimeters (41/2 
inches); Thickness 
— 70 Microns; Diameter — 50 


Millimeters (maximum) 


:251 D x 282 W x 93 H (mm) 


:117V (USA), 220-240V (Europe), 100V 


(Japan); AC +/- 
10%, 50/60 Hz 


:20 watts (max), 5 watts (idling) 


:5-40 degrees Centigrade 


:20%-80% (no condensation) 
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APPENDIX B: ASCII Code Table 


UPPER 
CASE/SHIFTED 
LOWER 
CASE 


0 


1 


2 


3 


4 


5 


6 


7 


8 


9j 


A 


B 


C 


D 


E 


F 


0 
1 
2 


1 


$ 


% 


& 


1 


c 


3 


+ 


9 


- 


/ 


3 


0 


1 


2 


3 


4 


5 


6 


7 


8 


9 


< 


= 


> 


4 


@ 


B 


C 


D 


E 


6 


H 


I 


J 


K 


L 


M 


N 


0 


5 


P 


Q 


R 


S 


T 


U 


U 


Ul 


X 


Y 


Z 


C 


<£ 


3 


t 


6 
7 
8 
9 
A 


1 


* 


% 


1 


c 


D 


+ 


- 


/ 


B 


0 


1 


2 


3 


4 


5 


6 


7 


8 


9 


o 


a 


t 


< 


> 


? 


C 


—, 


b 


c 


d 


e 


f 


9 


h 


1 


J 


k 


I 


m 


n 


0 


D 


P 


q 


r 


s 


t 


u 


u 


X 


y 


z 


1 


D 


E| 
F 


upper 
case/shifted 
Lower 
case 


0 


i 


2 


3 


4 


5 


6 


7 


3 


9 


D 


c 


d 


e 


f 


0 
1 
2 


1 


" 


$ 


% 


& 


i 


c 


D 


X 


+ 


- 


3 


0 


1 


2 


3 


4 


5 


6 


7 


8 


9 


: 


? 


< 


= 


> 


? 


4 


— 


a 


b 


c 


d- 


e 


f 


9 


h 


i 


j 


V 


I 


m 


n 


0 


5. 


P 


q 


r 


s 


t 


u 


u 


X 


y 


z 


1 


/^ 


•rf 


D 


6 
7 
8 
9 
a 


8 


$ 


% 


& 


i 


c 


3 


X 


+ 


— 


b 


0 


1 


2 


3 


4 


5 


6 


7 


8 


9 


o 


« 


< 


= 


> 


7 


c 


@ 


ft 


B 


C 


D 


E 


F 


G 


H 


I 


J 


K 


L 


M 


N 


0 


d 


P 


Q 


R 


S 


T 


U 


U 


Ui 


X 


Y 


L 


o£ 


J 


t 


G 
f 


t 


H0TC3 WEN 
ASCII 
i22C") 
IS 
DETECTED, 
UNTIL 
SECOND 
ASCII 
t22 
OR ASCtt 
tODCCRJ 
IS 
DETECTED,FOLLOW INS 
CONTROL 
CODESCi09-tlF,t88-i3F-)IS 
PRINTED 
A 
CORRESPONDENT 
UNOE 
RLINED 
CWlRCTERS.HOWEUER 
ASCII 
iBDCCR) DOES. ALWAYS 
CARRID8E 
RETURN. 
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APPENDIX C: Printing Control Characters 


Your Plotter is not able to print reverse, graphic or control 


characters. 
If any such characters appear in a program listing 


printed on your Plotter, they will be printed as underlined 


characters. The sample program listed below was printed on a 


VIC-1525 Graphic Printer. Note how each control character is 


printed. 


100 
REM CONTROL CHARACTER 0 


110 
OPEN6,6,6:PRINT#6,0 


120 
OPEN4.6 


130 
PRINT'S HOME 


140 
PRINT'O CLR 


150 
PRINT'H CRSR DOWN 


160 
PRINT'H CRSR UP 


170 
PRINT"B CRSR RIGHT 


180 
PRINT'H CRSR LEFT 


190 
PRINT'H 
F1 


200 
PRINT'H F2 


210 
PRINT'S F3 


220 
PRINT'M F4 


230 
PRINT'S F5 


240 
PRINT'S F6 


250 
PRINT'H F7 


260 
PRINT'H F8 


270 
PRINT"! 
BLACK 


280 
PRINT'S WHITE 


290 
PRINT"!! RED 


300 
PRINT'L 
CYAN 


310 
PRINT'B PURPLE 


320 
PRINT'H GREEN 


330 
PRINT'H BLUE 


340 
PRINT'IB YELLOW 


350 
REM COMMODORE64 


360 
PRINT" ORANGE 


370 
PRINT'S BROWN 


380 
PRINT'H LIGHT RED 


390 
PRINT'S DARK GREY 


400 
PRINT'S MED GREY 


410 
PRINT'H LIGHT GREEN 


420 
PRINT'D LIGHT BLUE 


430 
PRINT'B LIGHT GREY 


440 
CLOSE4:CLOSE6 


450 
END 


READY 
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Note the difference in how the control characters are formed 


when this program is LISTed on your Plotter. 


100 
REM CONTROL CHARACTER 0 


110 
OPEN6,6,6:PRINT#6,0 


120 
OPEN4.6 


130 
PRINT'S 
HOME 


140 
PRINT'!§_ 
CLR 


150 
PRINT'C: CRSR DOWN 


160 
PRINT'S. 
CRSR UP 


170 
PRINTS 
CRSR RIGHT 


180 
PRINTS CRSR LEFT 


190 
PRINT"e_ 
F1 


200 
PRINT"J_ 
F2 


210 
PRINT"j_ 
F3 


220 
PRINT"J_ 
F4 


230 
PRINT'g 
F5 


240 
PRINT"k_ 
F6 


250 
PRINT"h_ F7 


260 
PRINT'L. 
F8 


270 
PRINT"£. 
BLACK 


280 
PRINT"E_ WHITE 


290 
PRINT"^. RED 


300 
PRINT'S CYAN 


310 
PRINT"_ PURPLE 


320 
PRINT"J_ GREEN 


330 
PRINT".!! BLUE 


340 
PRINT"niYELLOW 


350 
REM COMMODORE64 


360 
PRINT" 
ORANGE 


370 
PRINT"u_ BROWN 


380 
PRINT"y_ LIGHT RED 


390 
PRINT'w. DARK GREY 


400 
PRINT"x_ MED GREY 


410 
PRINT"^_ LIGHT GREEN 


420 
PRINT"z_ LIGHT BLUE 


430 
PRINT"J_ LIGHT GREY 


440 
CLOSE4:CLOSE6 


450 
END 


READY. 


43 


APPENDIX D: Serial interface information 


1. 
The Connector: 


Pin No. 


1 


2 


3 


4 


5 


6 


S 
G 


S 


S 


S 


R 


E 


N 


E 


E 


E 


E 


Rl 


D 


Rl 


Rl 


Rl 


S 


Signal 


AL 


AL 
AL 
AL 


S 


A 


C 


D 


R 


T 


L 


A 


Q 


N 


K 
TA 


2. 
The Interface: 


a. 
Plug the serial interface cable supplied with your Plotter 


into the Serial Bus connector for the connection. Refer to 


SECTION 2 Part D for details on how to connect your 


Plotter to your computer. 


b. When the plotter is printing, no data will be transferred 


from the computer (the data line is said to be low). When 


the plotter is at rest, data can be transferred from the 


computer (the data line is said to be high). 


c. When a printer error occurs, all control circuits inside the 


Plotter will stop. 


d. User defined machine language IRQ routines should not 


exceed 10 milliseconds. 
If this is done, the Plotter may 


give a DEVICE NOT PRESENT error. 
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APPENDIX E: Programs you cay try 


This section contains 16 programs that you can try. They attempt 


to utilize most of the functions discussed in the Secondary 


Addressing section of this manual. Use them to help you develop 


your own programs. 


As you try each one, note how multiple secondary addresses are 


combined to produce quite complex multi-color plots. Also note 


how the geometric formulas and pen position commands are used 


to draw triangles, circles and ellipses. 


For each program, there is a printout of the expected Plotter 


output. 


1. 
Concentric Circles 


2. 
Concentric Squares 


3. 
Rotating Triangles 


4. Cone made from Circles 


5. 
Circle made from Circles 


6. 
Rotating Ellipses 


7. 
Archimedian Spiral 


8. 
Geometric Design 


9. 
Checker Board 


10. 
Hatching 


11. 
Changing Forms (Enter a number) 


12. 
Rotating Figures 


13. 
Bar Chart (Enter your own data) 


14. Complex Bar Chart 
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1. 
Concentric Circles 


100 
REM CIRCLE 1 


110 
OPEN4.6.0 
:REM PRINT ASCII 


120 
OPEN1.6.1 
:REM PLOT X,Y DATA 


130 
OPEN2.6.2 
CEO 
:REM PEN COLOR 


135 
PRINT#4:PRINT#4,"CONCENTRIC CIRCLES" 


140 
PRINT#1,"M";240,-240 


150 
PRINT#1,"I" 


160 
FOR L=30 TO 180 STEP 30 


170 
C = C+1:IFO=4:THENC = 0 


180 
PRINT#2,C 
:REM SET COLOR 


185 (FORZ=1TO15 


190 
(FOR 
I = 0 TO 360 STEP10 


200 X = (Z+L)*SIN(l*3.1416/180) 


210 Y = (Z+L)*COS(I*3.1416/180) 


220 
IF 
I = 0 THEN PRINT#1,"R";X,Y: GOTO 240 


230 
PRINT#1,"J";X,Y 


240 
NEXT 
I 


245 
NEXTZ 


250 
NEXT L 


260 
PRINT#1,"R";0,-240 


270 
PRINT#4:PRINT#4;PRINT#4 


280 
OPEN7.6.7 
:REM RESET PLOTTER 


290 
PRINT#7 


300 
CLOSE4:CLOSE1:CLOSE2:CLOSE7 


310 
END 


READY. 


CONCENTRIC 


CIRCLES 


DDDD 
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2. 
Concentric Squares 


100 
REM SQUARE = 


110 
OPEN4.6.0 
:REM PRINT ASCII 


120 
OPEN1,6,1 
:REM PLOT X,Y DATA 


130 
OPEN2,6,2 
C = 0 
:REM PEN COLOR 


135 
PRINT#4:PRINT#4,"CONCENTRIC SQUARES" 


140 
PRINT#1,"M";240,-240 


150 
PRINT#1,"I" 


160 
FORI = 0to90STEP:10 


170 C = C+1: IFO = 4THENC = 0 


180 
PRINT#2,C 
:REM SET COLOR 


185 
FORJ = 1TO11;- 


190 
X=1 + J. 


200 Y=1 + J. 


210 
PRINT#1,"R";X;-Y 


220 
PRINT#1,"J";X,Y 


230 
PRINT#1,"J";-X;Y 


240 
PRINT#1,"J";-X;-Y 


250 
PRINT#1,"J";X;-Y 


255 
NEXTJ 


260 
NEXT 
I 


270 
PRINT#4:PRINT#4:PRINT#4 


280 
PRINT#1,"R";0,-200 


290 
OPEN7.6.7 
:REM RESET PLOTTER 


300 
PRINT#7 


310 
CLOSE4:CLOSE1:CLOSE2:CLOSE7 


320 
END 


READY. 


CONCENTRIC SQUARES 


□□□□ 
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3. 
Rotating Triangles 


100 
REM ROTATE TRIANGLE 


110 
OPEN4.6.0 
:REM PRINT ASCII DATA 


120 
OPEN1,6,1 
:REM PLOT X,Y DATA 


130 
OPEN2,6,2:C = 4 
:REM COLOR 


135 
PRINT#4:PRINT#4:PRINT#4,"ROTATING TRIANGLE" 


140 
PRINT#1,"M";240,-200 


150 
PRINT#1,"I" 


160 
N = 3:L=160 


170 
FORA = 0TO360/NSTEP10 


180 C = C+1:IFC>=4THENC = 0 


190 
PRINT#2,C 
:REM SET COLOR 


200 TH = A**/180 


210 
FORI = 0TON 


220 
X=L*SIN(TH + I*2**/N) 


230 Y=L*COS(TH + I*2**/N) 


240 
IF 
I = 0 THEN PRINT#1,"R";X,Y:GOTO 260 


250 
PRINT#1,"J";X,Y 


260 
NEXT 
I 


270 
NEXT A 


280 
PRINT#1,"R";0,-200 


290 
PRINT#4:PRINT#4:PRINT#4 


300 
OPEN7.6.7 
:REM RESET PLOTTER 


310 
PRINT#7 


320 
CLOSE4:CLOSE1:CLOSE2:CLOSE7 


330 
END 


READY 


ROTATING TRIANGLE 


DDDD 
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4. 
Cone Made From Circles 


100 
REMCIRCLE2 


110 
OPEN4.6.8 
:REM PRINT ASCII DATA 


120 
OPEN1.6.1 
:REM PLOT X,Y DATA 


130 
OPEN2,6,2:C = 4 
:REM COLOR 


135 
PRINT#4:PRINT#4:PRINT#4,"CONE MADE FROM CIRCLES" 


140 
PRINT#1,"M";240,-200 


150 
PRINT#1,"I" 


160 
FOR L = 5 TO 150 STEP 5 


170 
PRINT#2,"1" 
:REM SET COLOR - BLUE 


180 
FOR 
l = 0 TO 360 STEP 10 


190 
X=L*SIN(l**/180) 


200 
D = L*2:Y = - 240 + D + L*COS(I* n /180) 


210 
IF 
I = 0 THEN PRINT#1,"R";X,Y:GOTO 230 


220 
PRINT#1,"J";X,Y 


230 
NEXT 
I 


240 
NEXTL 


250 
PRINT#1,"R";0,-300 


260 
PRINT#4:PRINT#4:PRINT#4 


270 OPEN 7,6,7 
:REM RESET PLOTTER 


280 
PRINT#7 


290 
CLOSE4:CLOSE1:CLOSE2:CLOSE7 


300 
END 


READY 


CONE MADE FROM CIRCLES 


DDDD 
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5. 
Circle Made From Circles 


100 
REM CIRCLE3 


110 
OPEN4,6,0 
:REM PRINT ASCII DATA 


120 
OPEN1.6.1 
:REM PLOT X,Y DATA 


125 
PRINT#4:PRINT#4:PRINT#4,"CIRCLE MADE FROM CIRCLES" 


130 
OPEN2,6,2:PRINT#2,"2" 
:REM GREEN 


140 
PRINT#1,"M";240,-200 


150 
PRINT#1,"I" 


160 
L=30:R = 80 


170 
FOR J = 0 TO 360 STEP 15 


180 
FOR 
I = 0 TO 360 STEP 10 


190 X=R*SIN(J**/180)+L*SIN(r*/180) 


200 Y= R*COS(J*a /180)+ L*COS(I** /180) 


210 
IF 
I = 0 THEN PRINT#1,"R";X,Y:GOTO 230 


220 
PRINT#1,"J";X,Y 


230 
NEXT 
I 


240 
NEXTJ 


250 
PRINT#1,"R";0,-100 


260 
PRINT#4:PRINT#4:PRINT#4 


270 
OPEN7,6,7 
:REM RESET PLOTTER 


280 
PRINT#7 


290 
CLOSE4:CLOSE1:CLOSE2:CLOSE7 


300 
END 


READY 


CIRCLE MADE FROM CIRCLES 


DDDD 
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6. 
Rotating Ellipses 


150 


160 


170 


100 
REM ROTATING ELLIPSE 


110 
OPEN4,6,0 
:REM PRINT ASCII DATA 


120 
OPEN1,6,1 
:REM PLOT X,Y DATA 


125 
PRINT#4:PRINT#4:PRINT#4,"ROTATING ELLIPSE" 


130 
OPEN2,6,2:PRINT#2,"3" 
:REM RED 


140 
PRINT#1,"M";240,-200 


PRINT#1,"I" 
A=180:B = 60:TH=*/180 
FOR J = 0 TO 180 STEP 15 


180 
FOR 
I = 0 TO 360 STEP 15 


190 
R = A*COS(I*TH) 


200 
L= B*SIN(I*TH) 


210 X=R*COS(J*TH)-L*SIN(J*TH) 


220 
Y=R*SIN(J*TH)+L*COS(J*TH) 


230 
IF 
I = 0 THEN PRINT#1,"R";X,Y:GOTO250 


PRINT#1,"J";X,Y 


NEXT 
I 


NEXTJ 


PRINT#1,"R";0,-200 


PRINT#4:PRINT#4:PRINT#4 


240 


250 


260 


270 


280 


:REM RESET PLOTTER 
290 
OPEN7.6.7 


300 
PRINT#7 


310 
CLOSE4:CLOSE1:CLOSE2:CLOSE7 


320 
END 


READY 


ROTATING ELLIPSE 


DDDD 
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7. 
Archimedian Spiral 


100 
REM ARCHIMEDIAN SPIRAL 


110 
OPEN4.6.0 
:REM PRINT ASCII DATA 


120 
OPEN1,6,1 
:REM PLOT X,Y DATA 


125 
PRINT#4:PRINT#4:PRINT#4,"ARCHIMEDIAN SPIRAL" 


130 
OPEN2,6,2:PRINT#2,"0" 
:REM BLACK 


140 
PRINT#1,"M";240,-200 


150 
PRINT#1,"I" 


160 
P = 9:A = 4 


170 
FOR TH = 0 TO A*2* * 
STEP * 
/24 


180 
X=P*TH*COS(TH) 


190 
Y=P*TH*SIN(TH) 


200 
IFTH = 0THEN PRINT #1,"R";X,Y:GOTO220 


210 
PRINT#1,"J";X,Y 


220 
NEXTTH 


230 
PRINT#1,"R";0,-240 


240 
PRINT#4:PRINT#4:PRINT#4 


250 
OPEN7,6,7 
:REM RESET PLOTTER 


260 
PRINT#7 


270 
CLOSE4:CLOSE1:CLOSE2:CLOSE7 


280 
END 


READY 


ARCHIMEDIAN SPIRAL 


DDDD 
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8. 
Geometric Design 


100 
REM GEOMETRICS 


110 
OPEN4,6,0 
:REM PRINT ASCII DATA 


120 
OPEN1,6,1 
:REM PLOT X,Y DATA 


125 
PRINT#4:PRINT#4:PRINT#4,"GEOMETRIC DESIGN" 


130 
OPEN2,6,2:PRINT#2,2 


140 
N = 17 


150 
PRINT#,"M";0,-260 


160 
PRINT#4 


170 
L=160 


180 
FORJ = 0TON-1 


190 
FORI = 0TOJ-1 


200 
X1 = 240+ L*COS(2/N*J** 
) 


210 
Y1 = 100+ L*SIN(2/N*J** 
) 


220 
X2 = 240+L*SIN(2/N*l**) 


230 Y2=100+L*SIN(2/N*l**) 


240 
PRINT#1,"M";X1,Y1 


250 
PRINT#1,"D";X2,Y2 


260 
NEXT 
I 


270 
NEXTJ 


280 
PRINT#1,"M";0,-100 


290 
PRINT#4:PRINT#4:PRINT#4 


300 
OPEN7,6,7 


310 
PRINT#7 


320 
CLOSE4:CLOSE1:CLOSE2:CLOSE7 


330 
END 


READY 


GEOMETRIC DESIGN 


:REM GREEN 


:REM ORIGIN PT 


:REM RESET PLOTTER 


DDDD 
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9. 
Checker Board 


100 
REM CHECKERBOARD 


110 
OPEN4,6,0 
:REM PRINT ASCII DATA 


120 
OPEN1.6.1 
:REM PLOTX.Y DATA 


125 
PRINT#4:PRINT#4:PRINT#4,"CHECKER BOARD" 


130 
OPEN2,6,2:PRINT#2,1 
:REM BLUE 


140 
PRINT#1,"M";60,-360 


150 
PRINT#1,"I" 


160 
B = 360 


210 
FORR = 0TO8:D=B/8 


220 
PRINT#1,"R";0;D*R 


230 
PRINT#1,"J";B;D*R 


240 
NEXTR 


250 
FORC = 0TO8:W=B/8 


260 
PRINT#1,"R";W*C;0 


270 
PRINT#1,"J";W*C;B 


280 
NEXTC 


290 
FORJ = 0TO7 


300 A = J-2*INT(J/2) 


310 
FOR 
l = A TO 7 STEP 2 


320 
FORV = 0TOD 


330 
PRINT#1,"R";I*W;J*D + V 


340 
PRINT#1,"J";(I + 1)*W;J*D + V 


350 
NEXTV 


360 
NEXT 
I 


370 
NEXTJ 


380 
PRINT#1,"H" 


390 
PRINT#4:PRINT#4:PRINT#4 


400 
OPEN7,6,7 
:REM RESET PLOTTER 


410 
PRINT#7 


420 
CLOSE4:CLOSE1:CLOSE2:CLOSE7 


430 
END 


READY 


-S4 


CHECKER BOARD 


DDDD 
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10. 
Hatching 


100 
REM HATCHING 


110 
OPEN4,6,0 
:REM PRINT ASCII DATA 


120 
OPEN1.6.1 
:REM PLOT X,Y DATA 


125 
PRINT#4:PRINT#4:PRINT#4,"HATCHING" 


130 
OPEN2,6,2:PRINT#2,2 
:REM GREEN 


140 
X = 0:FOR D = 2 TO 15 STEP 2 


150 
PRINT#1,"M";X,-100:X = X+60 


160 
PRINT#1,"I" 
:REM SET ORIGIN 


170 A = 50:B=100 


180 
PRINT#1,"J";0;B 


190 
PRINT#1,"J";A;B 


200 
PRINT#1,"J";A;0 


210 
PRINT#1,"J";O;O 


220 
P1 = - B:Q1 = B:P2 = 0:Q2 = A + B 


230 
GOSUB360 


240 
IF Q2< D THEN NEXT D:GOTO 320 


250 
PRINT#1,"R";X1;Y1 


260 
PRINT#1,"R";X1;Y2 


270 
GOSUB360 


280 
PRINT#1,"R";X2;Y2 


290 
PRINT#1,"J";X1;Y1 


300 GOTO 230 


310 
PRINT#1,"M";0;-120 


320 
PRINT#4:PRINT#4:PRINT#4 


330 
OPEN7,6,7:PRINT#7 
:REM RESET PLOTTER 


340 
CLOSE4:CLOSE1:CLOSE2:CLOSE7 


350 
END 


360 
P1 = P1 + D:Q1 = Q1-D 


370 
IF Q1< 0 THEN Y1 = 0:X1 = P1:GOTO 390 


380 
Y1 = Q1:X1 = 0 


390 
P2=P2+D:Q2 = Q2-D 


400 
IFP2> A THEN X2 = A:Y2 = Q2:GOTO 420 


410 X2=P2:Y2=B 


420 
RETURN 


READY 


HATCHING 


DDDD 
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11. Changing Forms 


100 
REM CHANGING FORMS 


110 
OPEN4.6, 
:REM PRINT CHAR 


120 
OPEN1.6.1 
:REM MOVE PEN 


130 
OPEN2.6.2 
:REM SELECT COLOR 


140 
PRINT#4:PRINT#4:PRINT#4:PRINT"CHANGING FORM' 


150 
PRINT#4,"CHANGING FORM" 


160 
INPUT"ENTER NBR OF STEPS";M 


170 
PRINT#4,"STEP ";M 


175 
PRINT#2,3 
:REM RED PEN 


180 
PRINT#1,"M";240,-200 


190 
PRINT#1,"I" 


200 
FOR 
I = 1 TO 4 


210 
READA,B:X1(I) = A:Y1(I)=B 


220 
NEXT 
I 
' 


230 
FOR 
1 = 1 TO 4 


240 
READ A,B:X2(I) = A:Y2(I) = B 


250 
NEXT 
I 


260 FORK=0TOM+1 


270 
FOR 
1 = 1 TO 4 


280 AX = X2(I)-X1(I) 


290 
AY=Y2(I)-Y1(I) 


300 
XX(I) = X1(I)+L*AX/(M + 1) 


310 
YY(I) = Y1(l)+ K*AY/(M +1) 


320 
NEXT 
I 


330 
FOR J = 1 TO 4 


340 
IF J = 1 THEN PRINT#1,"R";XX(J);YY(J):GOTO360 


350 
PRINT#1,"J";XX(J);YY(J) 


360 
NEXTJ 


370 
PRINT#1,"J";XX(1);YY(1) 


380 
NEXTK 


390 
PRINT#1,"M";0,-350 


400 
PRINT#4:PRINT#4:PRINT#4 


410 
OPEN7,6,7 
:REM RESET PLOTTER 


420 
PRINT#7 


430 
CLOSE4:CLOSE1:CLOSE2:CLOSE7 


440 
END 


450 
DATA 150,210,150,170,200,170,200,210 


460 
DATA - 200, - 90, - 150, - 90, -150,0, - 200,0 


READY 
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12. 
Rotating Figures 


100 
REM ROTATE2 


110 
OPEN4.6.0 
:REM PRINT ASCII DATA 


120 
OPEN1.6.1 
REM PLOT X,Y DATA 


125 
PRINT#4:PRINT#4:PRINT#4,"ROTATING FIGURES" 


130 
OPEN2,6,2:PRINT2,1 
:REM BLUE 


140 
PRINT#1,"M";240,-240 


150 
PRINT#1,"I" 


160 TH=*/180 


170 
FOR 
I = 1 TO 4:READ A,B:X(I) = A:Y(I) = B:NEXT 
I 


180 
FOR J = 0 TO 359 STEP 15 


190 
FOR 
1 = 1 TO 4 


200 
XX(I) = X(I)*COS(J*TH) - Y(I)*SIN(J *TH) 


210 
YY(I) = X(I)*SIN(J*TH) + Y(I)*COS(J*TH) 


220 
IF 
l = 1 THEN PRINT#1,"R";XX(I);YY(I):GOTO 240 


230 
PRINT#1,"J";XX(I);YY(I) 


240 
NEXT 
I 
' 


250 
PRINT#1,"J";XX(1);YY(1) 


260 
NEXTJ 


270 
PRINT#1,"M";0,-400 


280 
PRINT#4:PRINT#4:PRINT#4 


290 
OPEN7,6,7 
:REM RESET PLOTTER 


300 
PRINT#7 


310 
CLOSE4:CLOSE1;CLOSE2 


320 
END 


330 
DATA 70,80,90,130,110,130,130,80 


READY 


ROTATING FIGURES 
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13. Bar Chart 


100 REM BAR GRAPH (INTERACTIVE DATA ENTRY) 


110 
OPEN4,6,0 
:REM PRINT ASCII DATA 


120 
OPEN1,6,1 
:REM PLOT X,Y DATA 


130 
OPEN2.6.2 
:REM COLOR 


140 
OPEN3.6.3 
:REM CHARACTER SIZE 


145 
PRINT#4:PRINT#4:PRINT#4,"BAR CHART":PRINT#4 


147 
PRINT#4:PRINT#4 


150 GOSUB 980 


170 C=1:GOSUB950 


180 
PRINT#1,"M";0,-200 


190 
PRINT#4 


200 
PRINT#1,"M";20,0 


210 
PRINT#1,"D";20,200 


220 
PRINT#1,"H" 


230 
PRINT#1,"M";20,0 


240 
PRINT#1,"D";480,0 


250 
FOR 
I = 25 TO 200 STEP 25 


260 
PRINT#1,"M";15,I 


270 
PRINT#1,"D";20,l 


280 
NEXT 
I 


290 
: 


300 
FOR 
I = 1 TO L 


310 C= 
I 
:GOSUB950 


320 
H = A(I)*5:GOSUB590 


330 
NEXT 
I 


340 
: 


350 
FOR 
I = 1 TO L 


360 
C= 
I 
:GOSUB950 


370 
H = A(I)*5:GOSUB670 


380 
NEXT 
I 


390 
: 


400 
PRINT#1,"H" 


410 
PRINT#4 


420 
: 


430 
FOR 
1 = 1 TO L 


440 
C=I:S = 1:GOSUB950 


450 
X = 0:Y = 0:A$(I):GOSUB 800 


460 
NEXT 
I 


470 
: 


480 
A$ = T$ 


490 
C = 3:S = 2 
:GOSUB 950 


500 X = 30:Y = 220 
:GOSUB 890 


510 
A$ = S$ 


520 C = 2:S=1 
:GOSUB950 


530 X = 200:Y = 200 
:GOSUB890 


540 
: 


550 
PRINT#1,"H":PRINT#4:PRINT#4:PRINT#4 
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553 
PRINT#4:PRINT#4:PRINT#4 


554 GOSUB1105 


555 
OPEN7,6,7:PRINT#7 :REM RESET PLOTTER 


560 
CLOSE4:CLOSE1 :CLOSE2:CLOSE3:CLOSE7 


570 
END 


580 
: 


590 
REM = = WRITE BOX = = 


600 
X(I) = (I-1)*36*2 + 36:W = 36 


610 
PRINT#1,"M";X(l),0 


620 
PRINT#1,"D";X(I),H 


630 
PRINT#1,"D";X(I) + W,H 


640 
PRINT#1,"D";X(l) + W,0 


650 
RETURN 


660 
: 


670 
REM = = 
FILL BOX = = 


680 
X(l) = (I - "0*36*2 + 36:W= 36 


690 
PRINT#1,"M";X(I).O 


700 
FORJ = OTOHSTEP2 


710 
PRINT#1,"D";X(I) + W,J 


720 
PRINT#1,"D";X(I) + W,J + 1 


730 
IF J +1 > = H THEN 770 


740 
PRINT#1,"D";X(I),J + 1 


750 
PRINT#1,"D";X(l),J + 2 


760 
NEXTJ 


770 
RETURN 


780 
: 


790 
REM 
= = CHARACTER Y = = 


800 
PRINT#1,"M";X,Y:PRINT#4 


810 
SS = (2^S)*10 


820 
FOR M = 1 TO LEN(A$) 


830 
PRINT#1 ,"M";X(I) + 9.SS/5 


840 
PRINT4,MID$(A$,M,1) 


850 NEXTM 


860 
PRINT#1,"M";0,SS*4/5*LEN(A$) + SS*2 + Y:PRINT#4 


870 
RETURN 


880 
: 


890 
REM = = CHARACTER X = = 


900 
PRINT#1,"M";X,Y 


920 
PRINT#4,A$ 


930 
PRINT#1 ,"M";X, - Y + 40*S:PRINT#4:RETURN 


940 
: 


950 
REM = = 
COLOR.SIZE = = 


960 
PRINT#2,C:PRINT#3,S :RETURN 


970 
: 


980 
PRINT CHR$(147) 
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Bar Graph Listing Continued ... 


990 
IN PUT"ENTER MAIN TITLE";T$ 


1000 
INPUT'ENTER SUB TITLE";S$ 


1010 
INPUT'ENTER NUMBER OF DATA POINTS 1-6";L 


1020 
IF L<1 OR L>6THEN GOTO 1010 


1030 
FOR 
1 = 1 TO L 


1040 
PRINT" 
":PRINT"DATA POINT ",l 


1050 
INPUT'ENTER NAME 1-6 CHARS";A$(I) 


1055 
IF LEN(A$(1)) > 6 THEN GOTO 1050 


1060 
INPUT'ENTER SIZE 0-40";A(1) 


1070 
IF A(l)< 0 OR A(l) > 40 THEN GOTO 1060 


1080 
NEXT 
I 


1090 


1100 


1105 


1110 


1120 


1130 


1140 


1150 


1160 


1170 


RETURN 


: 


PRINT#2,2 


PRINT#4,"DATA POINTS 
FOR 
1 = 1 TO L 


PRINT#4,A$(I),A(I) 
NEXT 
I 


PRINT#4:PRINT#4:PRINT#4 


PRINT#4:PRINT#4:PRINT#4 


RETURN 


READY. 


BAR CHART 
TEST 


SUBTITLE 


DATA 
POINTS 


DLTDtIS 
THREE 


3 


21 


11 
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FOUR 
FlUE 


SIX 


2 


9 


14. Complex Bar Chart 


100 
REM 
**************** 


110 
REM 
* BAR GRAPH 2* 


120 
REM 
*********** 


130 
PRINT CHR$(147); 


140 
T$ = "* PROJECTED SALES *" 


150 
PRINT' 
"T$ 


160 
OPEN4,6,0 
:REM PRINT ASCII DATA 


170 
OPEN1,6,1 
:REM PLOTX.Y DATA 


180 
OPEN2,6,2 
:REM COLOR 


190 
OPEN3,6,3 
:REM CHAR SIZE 


200 
OPEN44,6,4 
:REM CHAR ROTATE 


210 
OPEN5,6,5 
:REM SCRIBE 


212 
PRINT#4:PRINT#4:PRINT#4,"COMPLEX BAR CHART" 


215 
FOR 
I = 1 TO 5:PRINT#4:NEXT 
I 


220 
C=1:S=1:R = 0:SC = 0:GOSUB1400:GOSUB1410 


230 
PRINT#1,"H":PRINT#4 


240 
: 


250 
REM 
= = 
READ DATA = = 


260 
READ M,N:DIM A$(M,N) 


270 
FOR J = 1 TO N:FOR 
I = 1 TO M: READ A$(I,J):NEXT 
I: NEXT J 


280 
FOR 
1 = 1 TO M:TY$(I)=" 
" + A$(I,1) + ' 
': 


NEXTI:YN = LEN(TY$(1)) 


290 
: 


300 
REM ==XYAXIS = = 


310 
OX = 50:W = YN*12:S=10 


320 
PRINT#1,"M";OX,0 


330 
PRINT#1,"D";OX+370,0 


340 
FOR 
I = OX TO OX + 370 STEP 360/S 


350 
PRINT#1,"M";l,0 


360 
PRINT#1,"D";I,5 


370 
NEXT 
I 


380 
PRINT#1,"M";OX,0 


390 
PRINT#1,"D";OX,-W*M 


400 
PRINT#1,"M";0,20:PRINT#4 


410 
: 


420 
REM 
= = 
TITLE = = 


430 
A$ = T$ 


440 C = 3:S = 2:R=1:GOSUB1400 


450 Y = 450:X = 40:GOSUB1690 


460 
: 


470 
REM 
= = X SCALE = = 


480 
T1$ = "MILLIONS OF UNITS" 


490 
C=3:S=1:R = 0:GOSUB1400 


500 
L1=4:XO=12*L1 


510 
PRINT#1,"M";120,X0:PRINT#4,T1$ 


520 
PRINT#1,"M";0,-XO + 40:PRINT#4 
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Bar Graph 2 Listing Continued ... 


530 
: 


540 
C=1:R=1:GOSUB1400 


550 XS = 0.5:XM = 5.0 


560 
FOR 
I = XS TO XM STEP XS 


570 
TX$(I)= LEFT$(STR$(I + SGN(l)*0.00000001),L1) 


580 Y= 1*36*2+OX-40 


590 
PRINT#1,"M";0,12*L1:PRINT#4 


600 
FORJ = 1TOL1 


610 
PRINT#1,"M";Y,8 


620 
PRINT#4,MID$(TX$(I),J,1) 


630 
NEXT J 


640 
PRINT#1,"M";0,40:PRINT#4 


650 
NEXT 
I 


660 
PRINT#1,"M";0,0:PRINT#4 


670 
: 


680 
REM = = Y SCALE = = 


690 
C = 0:S=1:R=1:GOSUB1400 


700 
FOR 
I = 1 TO M:Y = OX- 20 


710 
FOR J = 1 TO YN 


720 
PRINT#1,"M":Y,8 


730 
PRINT#4,MID$(TY$(I),J,1) 


740 
NEXTJ 


750 
NEXT 
I 


760 
PRINT#1,"M";0,60:PRINT#4 


770 
: 


780 
REM = = 
BRAPH PRINT = = 


790 
PRINT#1,"M";0,W*M + 10:PRINT#4 


800 
C = 0:GOSUB1400 


810 
FOR 
I = 1 TO M:D(I) = VAL(A$(I,2))/1000000:NEXT 
I 


820 
FOR 
I = 1 TO M:A(I) = D(I):NEXT 
I 


830 GOSUB1280 
:REM DATAQUEST 


840 
C = 2:GOSUB1400 


850 SC = 5:GOSUB1410 


860 
FOR 
I = 1 TO M:M(I) = VAL(A$(I,4))/1000000:NEXT 
I 


870 
FOR 
I = 1 TO M:A(I) = M(I):NEXT 
I 


880 
GOSUB1280 
:REM MERRILL LYNCH 


890 
SC = 0:GOSUB1410 


900 
: 


910 
REM = = COMMENT WRITING = = 


920 
C=1:S=1:R=1:GOSUB1400 


930 
A$ = "D":OF = 20 + W/2- 10*(LEN(A$)/2):PRINT#1,"M"; 


0,-OF:PRINT#4 


940 
FOR 
l = 1 TO M:Y= D(I)*25 + OX:GOSUB1440 


950 
PRINT#1,"M";0,-W+ 12*LEN(A$) + 20:PRINT#4 


960 
NEXT 
I 
970 
PRINT#1,"M";0,W*M + OF + 40:PRINT#4 


980 
: 
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Bar Graph 2 Listing Continued ... 


990 C = 2:S=1:R = 1:GOSUB1400 


1000 A$= "ML":OF = 20 + W/2-10*(LEN(A$)/2):PRINT#1,"M"; 


0,-OF:PRINT#4 


1010 
FOR l= 1 TO M:Y= M(l)*21 + OX:GOSUB1440 


1020 
PRINT#1,"M";0,-W+ 12*LEN(A$) + 20:PRINT#4 


1030 
NEXT 
I 


1040 
PRINT#1,"M";0,W*M + OF + 40:PRINT#4 


1050 
: 


1060 A$=" 
D = 
DATAQUEST FORECAST" 


1070 C = 0:R=1:GOSUB1400 


1080 Y = 425.X = 60:GOSUB1600 


1090 
: 


1100 A$="ML = 
MERRILL LYNCH FORECAST" 


1110 C = 2:R=1:GOSUB1400 


1120 Y = 405:X = 60:GOSUB1600 


1130 
: 


1140 A$="NOTE: MERRILL LYNCH DID NOT FORECAST 
PAST 1983 " 


1150 C = 3:S#0:R=1:GOSUB1400 


1160 
Y=18:X = 40:GOSUB1510 


1170 
: 


1180 A$= " 
BECAUSE THE MARKET IS EXPANDING 
VERY RAPIDLY" 


1190 C=3:S=0:R=1:GOSUB1400 


1200 Y = 8:X = 40:GOSUB1520 


1210 
: 


1220 C=1:S=1:R = 0:GOSUB1400 


1230 
SC = 0:GOSUB1410 


1233 
PRINT#1,"M";-480,-480 


1235 
FOR 
I = 1 TO 5:PRINT#4:NEXT 
I 


1237 
OPEN7,6,7 
:REM RESET PLOTTER 


1239 
PRINT#7 


1240 CLOSE1 :CLOSE2:CLOSE3:CLOSE4:CLOSE44:CLOSE5: 
CLOSE7 


1250 
END 


1260 
: 


1270 
REM = = 
BAR GRAPH = = 


1280 
FORI = 0TOM-1 


1290 
PRINT#1,"M";OX,-W*I-20 


1300 
IF A(l+ 1)>5 THEN 1360 


1310 
PRINT#1,"D";OX+ A(l +1)*60,-W*l - 20 


1320 
PRINT#1,"D";OX + A(l +1)*60,- W*(l +1)- 20 


1330 
PRINT#1,"D";OX,-W*(I + 1)-20 


1340 
NEXT 


1350 
RETURN 


1360 
PRINT#1,"D";400,-W*l-20 


1370 
PRINT#1,"M";400,-W*(l +1)-20:GOTO 1330 
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1380 
: 


1390 
REM = = 
COLOR,SIZE,R0TATE,SCRIBE = = 


1400 
PRINT#2,C:PRINT#3,S:PRINT#44,R:RETURN 


1410 
PRINT#5,SC:RETURN 


1420 
: 


1430 
REM = = GRAPH COMMENT = = 


1440 
FOR J = 
I TO LEN(A$) 


1450 
PRINT#1,"M";Y,8 


1460 
PRINT#4,MID$(A$,J1) 


1470 
NEXTJ 


1480 
RETURN 


1490 
: 


1500 
REM 
= = SMALL CHARACTER = = 


1510 
PRINT#1,"M";0,-X:PRINT#4 


1520 
FORI = 1TOLEN(A$) 


1530 
PRINT#1,"M";Y,2 


1540 
PRINT#4,MID$(A$,I,1) 


1550 
NEXT 
I 


1560 
PRINT#1,"M";0,8*LEN(A$) + X + 20:PRINT#4 


1570 
RETURN 


1600 
PRINT#1,"M";0,-X:PRINT#4 


1610 
FORI = 1TOLEN(A$) 


1620 
PRINT#1,"M";Y,8 


1630 
PRINTtf^MIDSfAS.I.I) 


1640 
NEXT 
I 


1650 
PRINT#1,"M";0,12*LEN(A$) + X + 40:PRINT#4 


1660 
RETURN 


1670 
: 


1680 
REM 
= = 
BIG CHARACTER = = 


1690 
PRINT#1,"M";0,-X:PRINT#4 


1700 
FORI = 1TOLEN(A$) 


1710 
PRINT#1,"M";Y,20 


1720 
PRINT#4,MID$(A$,I,1) 


1730 
NEXT 
I 


1740 
PRINT#1,"M";0,20*LEN(A$) + X + 80:PRINT#4 


1750 
RETURN 


1760 
: 


1770 
REM = = 
BIGGEST CHARACTER = = 


1780 
PRINT#1"M";0,-X:PRINT#4 


1790 
FORI = 1TOLEN(A$) 


1800 
PRINT#1,"M";Y,40 


1810 
PRINT#4,MID$(A1,I,1) 


1820 
NEXT 
I 


1830 
PRINT#1,"M";0,40*LEN(A$) + X+ 160:PRINT#4 


1840 
RETURN 


1850 
: 


1860 
REM 
= = DATA AREA = = 
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1870 
DATA 5,5 


1880 
DATA 1981,1982,1983,1984,1985 


1890 
DATA 420000,840000,1345000,2150000,3440000 


1900 
DATA 168M366M,538M,869M,1376M 


1910 
DATA 0,1250000,4000000,9999999,9999999 


1920 
DATA"",500M,1600M,9999M,9999M 


READY 


COMPLEX BAR CHART 


5.0 


4.5 


4.0 


3,5 


3,0 


2.5 


2.0 


1.5 


1.0 


,TO 


x 
PROJECTED 
SALES 
x 


D 
=DATAQUEST 
FORECAS 
ML 
= 
MERIlL 
l 


ML 


D 
ML 


; T 


. 
v 
N C 
H 


D 


ML 


FORECAST 


1981 
1982 
1983 
1984 
1985 


MOTEf 
1ERRILL 
LVNCH 
DID 
NOT 
FORECAST 
PAST 
1983 
BECAUSE 
THE 
MARKET 
16 
EXPANDIN9 
VERY 
RAPIOLY 
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